(quail-completion): Be sure to scroll quail-completion-buf.

diff --git a/lisp/international/quail.el b/lisp/international/quail.el
index d0017e8bf2182452226fecf46ce80c5cd7011ef9..f56200b555a4aa7470ca948b972f4907f54a9cbd 100644 (file)
--- a/lisp/international/quail.el
+++ b/lisp/international/quail.el
@@ -2124,7 +2124,10 @@ are shown (at most to the depth specified `quail-completion-max-depth')."
          ;; shown.  We just scroll it appropriately.
          (if (pos-visible-in-window-p (point-max) win)
              (set-window-start win (point-min))
-           (let ((other-window-scroll-buffer quail-completion-buf))
+           (let ((other-window-scroll-buffer quail-completion-buf)
+                 ;; This nil binding is necessary to surely scroll
+                 ;; quail-completion-buf.
+                 (minibuffer-scroll-window nil))
              (scroll-other-window)))
        (setq quail-current-key key)
        (erase-buffer)